(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    201124,       4399]
NotebookOptionsPosition[    199724,       4370]
NotebookOutlinePosition[    200112,       4387]
CellTagsIndexPosition[    200069,       4384]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"(*", 
    RowBox[{"P1", "~", "4"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Lambda]", "=", "\[Alpha]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Theta]", "=", 
     RowBox[{"ArcTan", "[", 
      RowBox[{
       RowBox[{"Cos", "[", "\[Alpha]", "]"}], 
       RowBox[{"Tan", "[", "\[Beta]", "]"}]}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "P5", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s", "=", "1"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "P6", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"s", "=", 
     RowBox[{"-", "1"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]", "=", 
   RowBox[{"-", 
    RowBox[{"ArcTan", "[", 
     RowBox[{
      RowBox[{"Tan", "[", "\[Alpha]", "]"}], "/", 
      RowBox[{"Tan", "[", "\[Beta]", "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"s", "*", 
    RowBox[{"ArcCot", "[", 
     SqrtBox[
      RowBox[{
       RowBox[{
        RowBox[{"Tan", "[", "\[Alpha]", "]"}], "^", "2"}], "+", 
       RowBox[{
        RowBox[{"Tan", "[", "\[Beta]", "]"}], "^", "2"}]}]], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R", "=", 
    RowBox[{
     RowBox[{"Ra", "*", "\[Alpha]"}], "+", 
     RowBox[{"Rb", "*", "\[Beta]"}], "+", 
     RowBox[{"Rr", "*", "\[Eta]"}]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"R", "=", 
     RowBox[{"Rr", "*", "\[Eta]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"v", "=", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Eta]"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a11", "=", 
   RowBox[{"R", "*", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}], "*", 
    RowBox[{"D", "[", 
     RowBox[{"\[Lambda]", ",", 
      RowBox[{"v", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a12", "=", 
   RowBox[{"R", "*", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}], "*", 
    RowBox[{"D", "[", 
     RowBox[{"\[Lambda]", ",", 
      RowBox[{"v", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a13", "=", 
   RowBox[{"R", "*", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}], "*", 
    RowBox[{"D", "[", 
     RowBox[{"\[Lambda]", ",", 
      RowBox[{"v", "[", 
       RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a21", "=", 
   RowBox[{"R", "*", 
    RowBox[{"D", "[", 
     RowBox[{"\[Theta]", ",", 
      RowBox[{"v", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a22", "=", 
   RowBox[{"R", "*", 
    RowBox[{"D", "[", 
     RowBox[{"\[Theta]", ",", 
      RowBox[{"v", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a23", "=", 
   RowBox[{"R", "*", 
    RowBox[{"D", "[", 
     RowBox[{"\[Theta]", ",", 
      RowBox[{"v", "[", 
       RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a31", "=", 
   RowBox[{"D", "[", 
    RowBox[{"R", ",", 
     RowBox[{"v", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a32", "=", 
   RowBox[{"D", "[", 
    RowBox[{"R", ",", 
     RowBox[{"v", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a33", "=", 
   RowBox[{"D", "[", 
    RowBox[{"R", ",", 
     RowBox[{"v", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "=", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"a11", "a12", "a13"},
       {"a21", "a22", "a23"},
       {"a31", "a32", "a33"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"A", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Alpha]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iA", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Inverse", "[", "A", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Alpha]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", "A", "]"}], ".", "A"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Alpha]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iG", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Inverse", "[", "G", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Alpha]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sqrtG", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"Det", "[", "G", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Alpha]", ">", 
         RowBox[{
          RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
        RowBox[{"\[Alpha]", "<", 
         RowBox[{"\[Pi]", "/", "4"}]}], ",", 
        RowBox[{"\[Beta]", ">", 
         RowBox[{
          RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
        RowBox[{"\[Beta]", "<", 
         RowBox[{"\[Pi]", "/", "4"}]}], ",", 
        RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dGdlon", "=", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{"D", "[", 
      RowBox[{"G", ",", 
       RowBox[{"v", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dGdlat", "=", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{"D", "[", 
      RowBox[{"G", ",", 
       RowBox[{"v", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dGdr", "=", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{"D", "[", 
      RowBox[{"G", ",", 
       RowBox[{"v", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<A=\>\"", ",", 
   RowBox[{"Simplify", "[", 
    RowBox[{"MatrixForm", "[", 
     RowBox[{"A", "/.", 
      RowBox[{
       RowBox[{
        RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
        RowBox[{"Rb", " ", "\[Beta]"}], "+", 
        RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], "]"}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<iA=\>\"", ",", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"iA", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
       RowBox[{"Rb", " ", "\[Beta]"}], "+", 
       RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<G=\>\"", ",", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"G", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
       RowBox[{"Rb", " ", "\[Beta]"}], "+", 
       RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<iG=\>\"", ",", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"iG", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
       RowBox[{"Rb", " ", "\[Beta]"}], "+", 
       RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<sqrtG=\>\"", ",", 
    RowBox[{"sqrtG", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
       RowBox[{"Rb", " ", "\[Beta]"}], "+", 
       RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<dGdlon=\>\"", ",", "dGdlon"}], "]"}], "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<dGdlat=\>\"", ",", "dGdlat"}], "]"}], "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<dGdr=\>\"", ",", "dGdr"}], "]"}]}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"https", ":"}], "//", 
    RowBox[{
     RowBox[{
      RowBox[{"zhuanlan", ".", "zhihu", ".", "com"}], "/", "p"}], "/", 
     "37451449"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dg1", "=", 
   RowBox[{"Outer", "[", 
    RowBox[{"D", ",", "G", ",", "v"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dg2", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"dg1", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"change", " ", "indices", " ", "orders"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"dg3", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"dg1", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CS", "=", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}], 
       RowBox[{"iG", ".", 
        RowBox[{"(", 
         RowBox[{"dg1", "+", "dg2", "-", "dg3"}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Alpha]", ">", 
         RowBox[{
          RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
        RowBox[{"\[Alpha]", "<", 
         RowBox[{"\[Pi]", "/", "4"}]}], ",", 
        RowBox[{"\[Beta]", ">", 
         RowBox[{
          RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
        RowBox[{"\[Beta]", "<", 
         RowBox[{"\[Pi]", "/", "4"}]}], ",", 
        RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], ";", 
   RowBox[{"(*", 
    RowBox[{"christoffel", " ", "symbols"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Christoffel=\>\"", ",", 
     RowBox[{"MatrixForm", "[", 
      RowBox[{"CS", "/.", 
       RowBox[{
        RowBox[{
         RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
         RowBox[{"Rb", " ", "\[Beta]"}], "+", 
         RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], "]"}]}], 
    "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"OmegaSph", "=", 
   RowBox[{"\[Omega]", "*", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"OmegaCube", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"iA", ".", "OmegaSph"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Alpha]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"OmegaCube", "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
       RowBox[{"Rb", " ", "\[Beta]"}], "+", 
       RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentrifugalForceSph", "=", 
   RowBox[{
    SuperscriptBox["\[Omega]", "2"], 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Omega]", "2"]}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", 
      RowBox[{
       SuperscriptBox["\[Omega]", "2"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentrifugalForceCube", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"iA", ".", "CentrifugalForceSph"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Alpha]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", ">", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"\[Pi]", "/", "4"}]}], ",", 
       RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"CentrifugalForceCube", "/.", 
   RowBox[{
    RowBox[{
     RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
     RowBox[{"Rb", " ", "\[Beta]"}], "+", 
     RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CentrifugalForceCube", "*", "sqrtG"}], "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
       RowBox[{"Rb", " ", "\[Beta]"}], "+", 
       RowBox[{"Rr", " ", "\[Eta]"}]}], "\[Rule]", "r"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Alpha]", ">", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
      RowBox[{"\[Alpha]", "<", 
       RowBox[{"\[Pi]", "/", "4"}]}], ",", 
      RowBox[{"\[Beta]", ">", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], "/", "4"}]}], ",", 
      RowBox[{"\[Beta]", "<", 
       RowBox[{"\[Pi]", "/", "4"}]}], ",", 
      RowBox[{"\[Eta]", ">", "0"}]}], "}"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.748150017387987*^9, 3.7481501002669964`*^9}, {
   3.7481502531342697`*^9, 3.748150351134679*^9}, {3.7481503817956753`*^9, 
   3.748150396240039*^9}, 3.7481504415937014`*^9, {3.748150572338011*^9, 
   3.7481506672736263`*^9}, {3.748150771651973*^9, 3.748150773533938*^9}, {
   3.748150852274338*^9, 3.7481508742086415`*^9}, 3.748150936952736*^9, {
   3.748150968513301*^9, 3.748151033207762*^9}, {3.748151228828043*^9, 
   3.748151236863692*^9}, {3.7481522941309853`*^9, 3.748152323817563*^9}, 
   3.7481523659319477`*^9, {3.7481524264081526`*^9, 3.7481524912786026`*^9}, 
   3.7481613464805307`*^9, {3.7481650976327305`*^9, 3.748165100926917*^9}, {
   3.748165141737867*^9, 3.748165230872306*^9}, {3.748165315381216*^9, 
   3.748165370630407*^9}, {3.7481654798023343`*^9, 3.7481654892610292`*^9}, {
   3.7481692578537617`*^9, 3.748169279295398*^9}, {3.7577686139902377`*^9, 
   3.7577687286774893`*^9}, {3.7577687765863495`*^9, 3.757768860909814*^9}, {
   3.75776889541652*^9, 3.7577689339594316`*^9}, {3.757769039007972*^9, 
   3.7577690630446844`*^9}, {3.757769135514849*^9, 3.7577691638001957`*^9}, {
   3.757769429067993*^9, 3.757769457226678*^9}, 3.757769587071046*^9, {
   3.7592154628239655`*^9, 3.759215499065191*^9}, {3.759215539906913*^9, 
   3.759215695690635*^9}, {3.759215731904752*^9, 3.7592157403083134`*^9}, {
   3.7592158199044504`*^9, 3.7592158652372065`*^9}, 3.7592159196237593`*^9, {
   3.75922311418956*^9, 3.7592231485436993`*^9}, {3.759223416714119*^9, 
   3.75922347955111*^9}, {3.7592236030667686`*^9, 3.7592237170728793`*^9}, {
   3.7592246081783752`*^9, 3.7592246107514944`*^9}, {3.759224659489154*^9, 
   3.759224759505679*^9}, 3.759225241164158*^9, {3.759225292492553*^9, 
   3.7592253062021246`*^9}, {3.7630869338898373`*^9, 3.763086991682808*^9}, {
   3.763087027860568*^9, 3.763087070334637*^9}, {3.7630871279595566`*^9, 
   3.7630871556715*^9}, {3.7630888329375415`*^9, 3.763088848924837*^9}, {
   3.7630888878258305`*^9, 3.763089082180278*^9}, {3.7630891540880146`*^9, 
   3.763089212329319*^9}, {3.7631578770906415`*^9, 3.763157891267444*^9}, {
   3.763158235331628*^9, 3.763158361001754*^9}, {3.7631584770106387`*^9, 
   3.7631584803367434`*^9}, {3.763158521905547*^9, 3.7631586564005947`*^9}, {
   3.763159575226506*^9, 3.7631596532663355`*^9}, {3.76315977807388*^9, 
   3.763159864517913*^9}, {3.763159953673379*^9, 3.7631600383258386`*^9}, {
   3.763160127503936*^9, 3.7631601764696608`*^9}, {3.763160877253928*^9, 
   3.7631609376861157`*^9}, {3.7631610153683643`*^9, 3.7631610155070333`*^9}, 
   3.7631614163516965`*^9, {3.763161503452248*^9, 3.7631615068918505`*^9}, {
   3.76316170941733*^9, 3.7631617718158064`*^9}, {3.7631618084669642`*^9, 
   3.7631619345489855`*^9}, {3.7631621772964535`*^9, 
   3.7631621945958157`*^9}, {3.7631622954758253`*^9, 
   3.7631623311752043`*^9}, {3.763162573095781*^9, 3.7631625810564933`*^9}, {
   3.763165007014879*^9, 3.7631650157624393`*^9}, {3.763165346894233*^9, 
   3.7631653592342196`*^9}, {3.7631654772141414`*^9, 3.763165490566574*^9}, {
   3.7631655277220955`*^9, 3.7631655926190104`*^9}, {3.7631656581316504`*^9, 
   3.763165704620087*^9}, {3.7631657544622936`*^9, 3.7631658412187023`*^9}, {
   3.7631659442558427`*^9, 3.7631659444143496`*^9}, {3.7631697399580326`*^9, 
   3.76316991533132*^9}, 3.7631699699656982`*^9, {3.763174351402421*^9, 
   3.763174353750779*^9}, {3.7631753037640495`*^9, 3.763175319861272*^9}, {
   3.7631753598098307`*^9, 3.763175371351607*^9}, {3.7631754061492767`*^9, 
   3.763175507092852*^9}, 3.763176110651868*^9, {3.763180564245925*^9, 
   3.7631805959987288`*^9}, {3.763180664242173*^9, 3.7631807171625504`*^9}, {
   3.7631846075493813`*^9, 3.7631847239337234`*^9}, {3.7632013082282653`*^9, 
   3.7632013622073803`*^9}, {3.763201395123904*^9, 3.7632013976278844`*^9}, {
   3.768724636461064*^9, 3.768724643103057*^9}, 3.7687247168880577`*^9, {
   3.7687259170417166`*^9, 3.768725966257715*^9}, {3.768733860636484*^9, 
   3.7687338660954847`*^9}, {3.768733912517484*^9, 3.768733934056484*^9}, {
   3.7858544277444243`*^9, 3.7858546060715413`*^9}, {3.78585467344009*^9, 
   3.785854708823527*^9}, {3.7858553315457616`*^9, 3.785855337641015*^9}, {
   3.785855368016358*^9, 3.785855420088813*^9}, {3.785855909025015*^9, 
   3.785856038063528*^9}, {3.785856088570183*^9, 3.7858561278955564`*^9}, {
   3.785856170002762*^9, 3.785856273233365*^9}, {3.7858563136099195`*^9, 
   3.785856313913683*^9}, {3.785856404692983*^9, 3.785856438530645*^9}, {
   3.7858565398177466`*^9, 3.7858565991205606`*^9}, {3.7858566668158393`*^9, 
   3.7858566880243216`*^9}, {3.7858567275705223`*^9, 
   3.7858567376037087`*^9}, {3.785857347559682*^9, 3.7858574179478493`*^9}, {
   3.7858584670428944`*^9, 3.7858585398252106`*^9}, {3.785858636962559*^9, 
   3.785858640522787*^9}, {3.785858670587372*^9, 3.785858712224944*^9}, {
   3.785858749458946*^9, 3.7858588420628247`*^9}, {3.7858590167141075`*^9, 
   3.7858590428887215`*^9}, {3.7858591191073675`*^9, 3.785859140713535*^9}, 
   3.785859215699136*^9, {3.7858592691705036`*^9, 3.7858592740956554`*^9}, {
   3.785859732487873*^9, 3.7858598203444495`*^9}, {3.785859858638613*^9, 
   3.7858600806077414`*^9}, {3.785860155552374*^9, 3.785860173446438*^9}, {
   3.785860557855685*^9, 3.7858605634063625`*^9}, {3.7858609358542967`*^9, 
   3.785860965302373*^9}, {3.7858610015861034`*^9, 3.785861002527371*^9}, {
   3.7858610335901794`*^9, 3.7858610480888867`*^9}, {3.785861310888216*^9, 
   3.78586134764559*^9}, {3.785861585945227*^9, 3.785861601189365*^9}, 
   3.785861639704359*^9, 3.785861782264332*^9, {3.7858626703013573`*^9, 
   3.7858627949033036`*^9}, 3.7858633369591446`*^9, 3.7858635901030107`*^9, {
   3.78586377259087*^9, 3.785863786465074*^9}, {3.7858638258953657`*^9, 
   3.785863832735037*^9}, {3.7858663769859962`*^9, 3.785866380252453*^9}, {
   3.785867314226081*^9, 3.7858673670049753`*^9}, {3.7858674157390213`*^9, 
   3.7858675183620973`*^9}, 3.786443521126769*^9, 3.7864435713766766`*^9, 
   3.786443660386431*^9, {3.786444574079462*^9, 3.786444669335345*^9}, {
   3.7864463001599927`*^9, 3.7864463036722603`*^9}, 3.786446419553109*^9, {
   3.786446461171731*^9, 3.786446477057373*^9}, {3.786446814881695*^9, 
   3.786446985519944*^9}, {3.7864470272095118`*^9, 3.786447057745755*^9}, {
   3.786447088912509*^9, 3.786447138648816*^9}, {3.786447193993759*^9, 
   3.786447250759598*^9}, {3.786449578316842*^9, 3.7864495891224365`*^9}, {
   3.786449644858076*^9, 3.786449684089555*^9}, {3.786450247122547*^9, 
   3.7864502531488476`*^9}, {3.7864503217215004`*^9, 
   3.7864503381697063`*^9}, {3.810694107588764*^9, 3.8106943923531904`*^9}, {
   3.8106944878209667`*^9, 3.8106945255132203`*^9}, {3.8106945849632916`*^9, 
   3.810694636317973*^9}, {3.810694771994443*^9, 3.81069490393817*^9}, {
   3.810694938731064*^9, 3.8106949735321035`*^9}, {3.8106950611797037`*^9, 
   3.810695089166856*^9}, 3.8106953732763147`*^9, {3.8106954209508605`*^9, 
   3.8106954262496953`*^9}, 3.8106954611344547`*^9, {3.810695501560954*^9, 
   3.810695523032544*^9}, {3.810695583669401*^9, 3.810695628347964*^9}, {
   3.810695660409269*^9, 3.810695704152301*^9}, {3.810696116031282*^9, 
   3.8106961198799925`*^9}, {3.8106962219404044`*^9, 3.810696242808605*^9}, {
   3.8106964753200064`*^9, 3.810696477209955*^9}, {3.8106965597333355`*^9, 
   3.8106965663725867`*^9}, {3.8106966443032484`*^9, 3.810696647206484*^9}, {
   3.810722503608433*^9, 3.8107226654936476`*^9}, {3.81072311533906*^9, 
   3.8107231534631042`*^9}, {3.812589210352528*^9, 3.812589304446389*^9}, {
   3.8125893719424047`*^9, 3.812589478501624*^9}, {3.812589587856048*^9, 
   3.8125896038647747`*^9}, {3.8126325503437624`*^9, 
   3.8126326014195514`*^9}, {3.8128549686842012`*^9, 
   3.8128549687941356`*^9}, {3.8130451620035343`*^9, 3.813045169889459*^9}, {
   3.8183206087977695`*^9, 3.8183206354952345`*^9}, 3.8324070270285006`*^9, {
   3.832407072973501*^9, 3.8324070819324875`*^9}, {3.8324071434792604`*^9, 
   3.832407170913245*^9}, {3.8324105153610115`*^9, 3.8324105153650317`*^9}, 
   3.838988147274657*^9, {3.838988179043666*^9, 3.8389883524186716`*^9}, {
   3.838988629206687*^9, 3.8389887410826874`*^9}, {3.8389891327497053`*^9, 
   3.8389891448440456`*^9}, {3.8389903425353055`*^9, 
   3.8389903435562997`*^9}, {3.838990427837316*^9, 3.8389904450456104`*^9}, {
   3.8389907252536163`*^9, 3.8389907304886084`*^9}, 3.8389913212066746`*^9, 
   3.8390331030290174`*^9, {3.839165620600835*^9, 3.8391659575340805`*^9}, {
   3.8391660164610844`*^9, 3.8391660188050685`*^9}, 3.839166062799084*^9, {
   3.8391662983983617`*^9, 3.8391663039900455`*^9}, {3.839166401157569*^9, 
   3.8391664260295563`*^9}, {3.8391664563985825`*^9, 
   3.8391665271660643`*^9}, {3.8391673683469543`*^9, 3.839167466926094*^9}, {
   3.839167503500153*^9, 3.8391675370714703`*^9}, {3.8391676169762554`*^9, 
   3.839167680708274*^9}, {3.839167731943289*^9, 3.839167749519197*^9}, {
   3.8391680031859474`*^9, 3.8391680083239393`*^9}, {3.839168051575951*^9, 
   3.8391680531959686`*^9}, {3.839168088051008*^9, 3.839168094135991*^9}, {
   3.8391682769846787`*^9, 3.839168337080731*^9}, {3.8391683904997106`*^9, 
   3.839168413175714*^9}, 3.83916864397909*^9, {3.8391686750875587`*^9, 
   3.839168714428542*^9}, {3.8391687469465594`*^9, 3.8391687507245626`*^9}, {
   3.839168834464542*^9, 3.839168866290809*^9}, {3.839168899946811*^9, 
   3.839168922712819*^9}, {3.839168968035813*^9, 3.839168970567823*^9}, {
   3.839169045359809*^9, 3.839169085600784*^9}, {3.839169302290578*^9, 
   3.8391693265371494`*^9}, {3.839169708175756*^9, 3.8391697127087555`*^9}, {
   3.8391697804358563`*^9, 3.8391697819948587`*^9}, {3.8391699731712875`*^9, 
   3.8391699852412877`*^9}, {3.839170208717842*^9, 3.839170219182282*^9}, {
   3.839170569174945*^9, 3.839170577170945*^9}, {3.839170960551553*^9, 
   3.8391709629815516`*^9}, 3.839171888118546*^9, {3.839172834882839*^9, 
   3.8391728751787214`*^9}, {3.8391730062107773`*^9, 3.839173024134774*^9}, {
   3.8391732486748257`*^9, 3.83917325438282*^9}, {3.8391734389317517`*^9, 
   3.8391734904747524`*^9}, {3.8391738488822227`*^9, 
   3.8391738699239254`*^9}, {3.839174277173421*^9, 3.8391742829554214`*^9}, {
   3.8391743337244053`*^9, 3.839174366112199*^9}, 3.8391744412642336`*^9, {
   3.8391751005682554`*^9, 3.839175113124239*^9}, {3.8391751808042545`*^9, 
   3.839175356303198*^9}, {3.839175392477195*^9, 3.8391754223611984`*^9}, {
   3.839175456078521*^9, 3.83917548020552*^9}, {3.8391755729175253`*^9, 
   3.839175601405748*^9}, {3.8391756386068335`*^9, 3.8391756412938533`*^9}, {
   3.839175820080815*^9, 3.839175864504131*^9}, {3.8391766319743986`*^9, 
   3.8391766749093227`*^9}, {3.8391777077597523`*^9, 
   3.8391777572487907`*^9}, {3.8391777898617983`*^9, 3.83917779509778*^9}, {
   3.8391800897127852`*^9, 3.83918012595477*^9}, {3.8394292410523396`*^9, 
   3.839429266612468*^9}, {3.839429368602217*^9, 3.8394293833313074`*^9}, {
   3.8396233767708187`*^9, 3.8396233831651483`*^9}, 3.839623671013212*^9, {
   3.8396509030708003`*^9, 3.839650912030799*^9}, {3.8396737646001205`*^9, 
   3.839673820319213*^9}, 3.8396738576482124`*^9, {3.8396738883372126`*^9, 
   3.839673985993554*^9}, {3.83967402452347*^9, 3.8396740674693737`*^9}, {
   3.839680551274977*^9, 3.8396806380408025`*^9}, {3.8397256737049084`*^9, 
   3.8397257951619167`*^9}, {3.8397258384114995`*^9, 3.8397258442794914`*^9}, 
   3.8397258871007643`*^9, {3.8397277995082555`*^9, 3.8397278024753666`*^9}, {
   3.8397281983097134`*^9, 3.839728307752576*^9}, {3.8397536944901733`*^9, 
   3.839753714838767*^9}, 3.8397540223398185`*^9, {3.839755624874116*^9, 
   3.839755649426776*^9}, {3.83975995627477*^9, 3.8397601780268793`*^9}, {
   3.8397712504033265`*^9, 3.839771343838419*^9}, {3.839771398470366*^9, 
   3.839771400819101*^9}, 3.839771469367426*^9, {3.8397715605672774`*^9, 
   3.8397715646683383`*^9}, {3.83977159807861*^9, 3.8397716611488457`*^9}, {
   3.839771850319072*^9, 3.839771980222622*^9}, {3.839772020543769*^9, 
   3.839772021064257*^9}, {3.839772077963739*^9, 3.839772096020365*^9}, {
   3.839772172898201*^9, 3.8397722530526414`*^9}, {3.839772292945204*^9, 
   3.8397724291159935`*^9}, 3.839772659640664*^9, {3.8397732586792173`*^9, 
   3.839773271046582*^9}, {3.8397733897703342`*^9, 3.8397734033688903`*^9}, 
   3.8397734475345592`*^9, {3.839773653248493*^9, 3.8397737076615224`*^9}, {
   3.8398071061472006`*^9, 3.8398071276807947`*^9}, {3.8398177095604877`*^9, 
   3.8398177135587163`*^9}, {3.83981778184177*^9, 3.8398178380392017`*^9}, {
   3.8398212675011916`*^9, 3.8398212680825834`*^9}, {3.8398250977841535`*^9, 
   3.839825155030769*^9}, {3.839826817592086*^9, 3.8398269477204423`*^9}, 
   3.83982717491372*^9, {3.839827321512375*^9, 3.8398273219069834`*^9}, {
   3.839839649885773*^9, 3.839839656510742*^9}, {3.8398444042302113`*^9, 
   3.8398444049245296`*^9}, {3.839978441621981*^9, 3.8399785002359805`*^9}, {
   3.8399787485649776`*^9, 3.839978753411972*^9}, {3.8399794652929735`*^9, 
   3.8399794679769726`*^9}, {3.8399810344909897`*^9, 
   3.8399810994840083`*^9}, {3.839985742600385*^9, 3.839985782001405*^9}, {
   3.839988584033708*^9, 3.839988586400734*^9}, {3.8399930714876213`*^9, 
   3.839993184342617*^9}, {3.8399932706326203`*^9, 3.839993273353617*^9}, {
   3.839993760384621*^9, 3.839993815498617*^9}, {3.839994286158654*^9, 
   3.839994366913293*^9}, {3.8399947034882917`*^9, 3.8399947653703065`*^9}, {
   3.839995626702362*^9, 3.839995656838338*^9}, {3.839996830973792*^9, 
   3.839996832638796*^9}, 3.8399969321958294`*^9, {3.8399971497507925`*^9, 
   3.839997167305849*^9}, {3.8399972749327946`*^9, 3.839997344808794*^9}, {
   3.8399973979827957`*^9, 3.8399974108133698`*^9}, {3.8399974605843687`*^9, 
   3.839997507216344*^9}, {3.8400169527361665`*^9, 3.840016982953163*^9}, {
   3.8400170555042048`*^9, 3.840017079914204*^9}, {3.8400338800544496`*^9, 
   3.84003388831645*^9}, {3.840034277631184*^9, 3.840034302693183*^9}, {
   3.840034565478795*^9, 3.840034596862796*^9}, {3.8400348997346587`*^9, 
   3.8400349182622585`*^9}, {3.840035463786478*^9, 3.8400354762548904`*^9}, 
   3.8400356803044243`*^9, {3.840035949584631*^9, 3.8400359784164877`*^9}, {
   3.8400708731133723`*^9, 3.8400708922344103`*^9}, {3.840323297158695*^9, 
   3.8403232992626934`*^9}, {3.8404269299115963`*^9, 3.840426933351693*^9}, 
   3.8404269763383055`*^9, {3.840427100281865*^9, 3.8404271011678624`*^9}, {
   3.8404278804460125`*^9, 3.8404278874911795`*^9}, {3.8404330865539827`*^9, 
   3.8404330896239853`*^9}, {3.8404441608485403`*^9, 
   3.8404441712456894`*^9}, {3.840444246553465*^9, 3.840444246919465*^9}, {
   3.840444581988431*^9, 3.8404445972138357`*^9}, {3.8404449468669806`*^9, 
   3.84044495415352*^9}, {3.8404463391858673`*^9, 3.8404463424648676`*^9}, {
   3.840446402724025*^9, 3.840446428418664*^9}, {3.8404464762026863`*^9, 
   3.8404464810016856`*^9}, {3.840446669355488*^9, 3.8404466747737017`*^9}, {
   3.840446809765624*^9, 3.8404468438971653`*^9}, {3.8404468850486994`*^9, 
   3.8404469036839976`*^9}, {3.840446970453174*^9, 3.840446976429367*^9}, 
   3.8404470068379087`*^9, {3.8404471805206823`*^9, 3.840447208380374*^9}, {
   3.840447359427676*^9, 3.8404475148847265`*^9}, {3.8404480457803955`*^9, 
   3.840448166119279*^9}, {3.840448218229764*^9, 3.8404483039316435`*^9}, 
   3.8404484217561665`*^9, {3.840448704715891*^9, 3.8404487079358892`*^9}, {
   3.84044998453997*^9, 3.8404500034949703`*^9}, {3.840450362375423*^9, 
   3.840450371850424*^9}, {3.8404539610355406`*^9, 3.8404539664555387`*^9}, {
   3.8404551858272467`*^9, 3.840455187914683*^9}, {3.840455228784191*^9, 
   3.8404552424933825`*^9}, {3.8404558279937286`*^9, 3.840455847160728*^9}, {
   3.8404558990317287`*^9, 3.8404559019677286`*^9}, {3.8404559961147118`*^9, 
   3.8404559979957113`*^9}, {3.840456055794711*^9, 3.8404560577467117`*^9}, {
   3.840456416064889*^9, 3.840456464271099*^9}, {3.8404565502040777`*^9, 
   3.8404565634962206`*^9}, {3.8404573127881627`*^9, 3.840457339610505*^9}, {
   3.840457477078887*^9, 3.8404575148902683`*^9}, 3.840457807543154*^9, {
   3.8404582390902023`*^9, 3.840458243013219*^9}, 3.840458569853693*^9, {
   3.840459294302524*^9, 3.8404593018845243`*^9}, 3.8404601834637604`*^9, {
   3.8404602412202168`*^9, 3.8404602488125415`*^9}, {3.8404605155620947`*^9, 
   3.840460518721095*^9}, {3.8404609732005215`*^9, 3.840460974758008*^9}, {
   3.8404610281331954`*^9, 3.8404610282641945`*^9}, {3.8404635657839484`*^9, 
   3.8404635675182786`*^9}, {3.8404637143777046`*^9, 3.84046371698979*^9}, {
   3.8404637685524507`*^9, 3.840463783803621*^9}, {3.8404883807228346`*^9, 
   3.840488389494838*^9}, 3.840490351297579*^9, {3.840491253406358*^9, 
   3.840491358253357*^9}, {3.840491672619009*^9, 3.840491716068015*^9}, {
   3.840492035442006*^9, 3.840492055581603*^9}, {3.8405051233551593`*^9, 
   3.8405051246251264`*^9}, {3.840505329201972*^9, 3.840505331940979*^9}, {
   3.840506891929204*^9, 3.8405069025391912`*^9}, {3.840509584719002*^9, 
   3.8405095898979607`*^9}, {3.8405100000969973`*^9, 
   3.8405100058819747`*^9}, {3.840589526053776*^9, 3.8405895362997417`*^9}, {
   3.8406796820505123`*^9, 3.8406797030455112`*^9}, 3.8406803589250307`*^9, {
   3.840686530457386*^9, 3.8406865587343903`*^9}, {3.840686909648342*^9, 
   3.8406869384053464`*^9}, {3.8406869812346973`*^9, 
   3.8406870067546997`*^9}, {3.840687087395008*^9, 3.840687091882*^9}, 
   3.840771591861495*^9, {3.8407716472025614`*^9, 3.840771647204526*^9}, {
   3.8407717174845333`*^9, 3.840771717486531*^9}, {3.840771782755743*^9, 
   3.8407717827617064`*^9}, 3.8407729966266856`*^9, 3.8407735114401402`*^9, {
   3.840773575983177*^9, 3.8407735972681775`*^9}, {3.8407737073043194`*^9, 
   3.840773712919319*^9}, {3.840774080788187*^9, 3.8407740870151854`*^9}, {
   3.8407741171011825`*^9, 3.8407741381932163`*^9}, {3.8407743957921267`*^9, 
   3.840774409159123*^9}, {3.8417372428151855`*^9, 3.8417372481983624`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1874d45f-36c8-481d-a96c-727d8c067141"],

Cell[BoxData[
 TemplateBox[{
  "Remove","rmnsm",
   "\"\:4e0d\:5b58\:5728\:5339\:914d \\\" \
\\!\\(\\*RowBox[{\\\"\\\\\\\"Global`*\\\\\\\"\\\"}]\\) \\\" \
\:7684\:7b26\:53f7.\"",2,1,1,16483467021060957987,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8409692711197786`*^9, 3.840969418110736*^9, 
  3.841737255648517*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"72af4fbf-73f6-45e7-898c-\
e0a3bcd1298b"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"A=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{"r", " ", 
           RowBox[{"Cot", "[", "\[Beta]", "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Alpha]", "]"}], "2"]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Cot", "[", "\[Beta]", "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], " ", 
           SqrtBox[
            RowBox[{"1", "+", 
             FractionBox["1", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}]]}], 
        FractionBox[
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
          RowBox[{"Tan", "[", "\[Alpha]", "]"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Cot", "[", "\[Beta]", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            FractionBox["1", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}]], "0"},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{"r", " ", 
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Alpha]", "]"}], "2"], " ", 
           RowBox[{"Tan", "[", "\[Alpha]", "]"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"r", " ", 
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], " ", 
           RowBox[{"Tan", "[", "\[Beta]", "]"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}], "0"},
       {"Ra", "Rb", "Rr"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["A=", 
   MatrixForm[{{-$CellContext`r Cot[$CellContext`\[Beta]] 
      Sec[$CellContext`\[Alpha]]^2 (1 + 
        Cot[$CellContext`\[Beta]]^2 Tan[$CellContext`\[Alpha]]^2)^(-1) (
        1 + (Tan[$CellContext`\[Alpha]]^2 + 
          Tan[$CellContext`\[Beta]]^2)^(-1))^Rational[-1, 2], $CellContext`r 
      Csc[$CellContext`\[Beta]]^2 
      Tan[$CellContext`\[Alpha]] (1 + 
        Cot[$CellContext`\[Beta]]^2 Tan[$CellContext`\[Alpha]]^2)^(-1) (
        1 + (Tan[$CellContext`\[Alpha]]^2 + 
          Tan[$CellContext`\[Beta]]^2)^(-1))^Rational[-1, 2], 
      0}, {-$CellContext`r Sec[$CellContext`\[Alpha]]^2 
      Tan[$CellContext`\[Alpha]] (Sec[$CellContext`\[Beta]]^2 + 
        Tan[$CellContext`\[Alpha]]^2)^(-1) (Tan[$CellContext`\[Alpha]]^2 + 
        Tan[$CellContext`\[Beta]]^2)^Rational[-1, 2], -$CellContext`r 
      Sec[$CellContext`\[Beta]]^2 (Sec[$CellContext`\[Beta]]^2 + 
        Tan[$CellContext`\[Alpha]]^2)^(-1) 
      Tan[$CellContext`\[Beta]] (Tan[$CellContext`\[Alpha]]^2 + 
        Tan[$CellContext`\[Beta]]^2)^Rational[-1, 2], 
      0}, {$CellContext`Ra, $CellContext`Rb, $CellContext`Rr}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.841737360880827*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"400b1bcd-df19-42b0-9b30-\
5acf1ab1eaff"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"iA=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
           RowBox[{"Tan", "[", "\[Beta]", "]"}], " ", 
           SqrtBox[
            RowBox[{"1", "+", 
             FractionBox["1", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}], "r"]}], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
           RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}], 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]]}], 
        "0"},
       {
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], " ", 
          RowBox[{"Tan", "[", "\[Alpha]", "]"}], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            FractionBox["1", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}], "r"], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"Cot", "[", "\[Beta]", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}], 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]]}], 
        "0"},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "Ra"}], " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"]}], "+", 
             RowBox[{"Rb", " ", 
              RowBox[{"Cot", "[", "\[Beta]", "]"}], " ", 
              RowBox[{"Tan", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Cot", "[", "\[Beta]", "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], " ", 
           RowBox[{"Tan", "[", "\[Beta]", "]"}], " ", 
           SqrtBox[
            RowBox[{"1", "+", 
             FractionBox["1", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}], 
          RowBox[{"r", " ", "Rr", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]]}], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Rb", " ", 
             RowBox[{"Cot", "[", "\[Beta]", "]"}]}], "+", 
            RowBox[{"Ra", " ", 
             RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
             SuperscriptBox[
              RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
             RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}], 
         RowBox[{"r", " ", "Rr", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]], 
        FractionBox["1", "Rr"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["iA=", 
   MatrixForm[{{-$CellContext`r^(-1) Cos[$CellContext`\[Alpha]]^2 
      Tan[$CellContext`\[Beta]] (
        1 + (Tan[$CellContext`\[Alpha]]^2 + 
          Tan[$CellContext`\[Beta]]^2)^(-1))^
       Rational[1, 2], -$CellContext`r^(-1) Cos[$CellContext`\[Alpha]] 
      Csc[$CellContext`\[Beta]]^2 
      Sin[$CellContext`\[Alpha]] (Sec[$CellContext`\[Beta]]^2 + 
       Tan[$CellContext`\[Alpha]]^2) (Sec[$CellContext`\[Beta]]^2 + 
        Csc[$CellContext`\[Beta]]^2 Tan[$CellContext`\[Alpha]]^2)^(-1) (
        Tan[$CellContext`\[Alpha]]^2 + Tan[$CellContext`\[Beta]]^2)^
       Rational[1, 2], 0}, {$CellContext`r^(-1) Cos[$CellContext`\[Beta]]^2 
      Tan[$CellContext`\[Alpha]] (
        1 + (Tan[$CellContext`\[Alpha]]^2 + 
          Tan[$CellContext`\[Beta]]^2)^(-1))^
       Rational[1, 2], -$CellContext`r^(-1) 
      Cot[$CellContext`\[Beta]] (Sec[$CellContext`\[Beta]]^2 + 
       Tan[$CellContext`\[Alpha]]^2) (Sec[$CellContext`\[Beta]]^2 + 
        Csc[$CellContext`\[Beta]]^2 Tan[$CellContext`\[Alpha]]^2)^(-1) (
        Tan[$CellContext`\[Alpha]]^2 + Tan[$CellContext`\[Beta]]^2)^
       Rational[1, 2], 
      0}, {-$CellContext`r^(-1) $CellContext`Rr^(-1) (-$CellContext`Ra 
        Cos[$CellContext`\[Alpha]]^2 
        Sec[$CellContext`\[Beta]]^2 + $CellContext`Rb 
        Cot[$CellContext`\[Beta]] Tan[$CellContext`\[Alpha]]) (1 + 
       Cot[$CellContext`\[Beta]]^2 Tan[$CellContext`\[Alpha]]^2) (
        Sec[$CellContext`\[Beta]]^2 + 
        Csc[$CellContext`\[Beta]]^2 Tan[$CellContext`\[Alpha]]^2)^(-1) 
      Tan[$CellContext`\[Beta]] (
        1 + (Tan[$CellContext`\[Alpha]]^2 + 
          Tan[$CellContext`\[Beta]]^2)^(-1))^
       Rational[
        1, 2], $CellContext`r^(-1) $CellContext`Rr^(-1) ($CellContext`Rb 
        Cot[$CellContext`\[Beta]] + $CellContext`Ra 
        Cos[$CellContext`\[Alpha]] Csc[$CellContext`\[Beta]]^2 
        Sin[$CellContext`\[Alpha]]) (Sec[$CellContext`\[Beta]]^2 + 
       Tan[$CellContext`\[Alpha]]^2) (Sec[$CellContext`\[Beta]]^2 + 
        Csc[$CellContext`\[Beta]]^2 Tan[$CellContext`\[Alpha]]^2)^(-1) (
        Tan[$CellContext`\[Alpha]]^2 + Tan[$CellContext`\[Beta]]^2)^
       Rational[1, 2], $CellContext`Rr^(-1)}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.841737360887826*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"f9c48e85-f24c-4cc4-a514-\
5ab2c4a264d8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"G=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         SuperscriptBox["Ra", "2"], "+", 
         FractionBox[
          RowBox[{"16", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
           "2"]]}], 
        RowBox[{
         RowBox[{"Ra", " ", "Rb"}], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
           "2"]]}], 
        RowBox[{"Ra", " ", "Rr"}]},
       {
        RowBox[{
         RowBox[{"Ra", " ", "Rb"}], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
           "2"]]}], 
        RowBox[{
         SuperscriptBox["Rb", "2"], "+", 
         FractionBox[
          RowBox[{"16", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
           "2"]]}], 
        RowBox[{"Rb", " ", "Rr"}]},
       {
        RowBox[{"Ra", " ", "Rr"}], 
        RowBox[{"Rb", " ", "Rr"}], 
        SuperscriptBox["Rr", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["G=", 
   MatrixForm[{{$CellContext`Ra^2 + 
      16 $CellContext`r^2 
       Cos[$CellContext`\[Beta]]^2 (3 + Cos[2 $CellContext`\[Alpha]] + 
         2 Cos[2 $CellContext`\[Beta]] 
          Sin[$CellContext`\[Alpha]]^2)^(-2), $CellContext`Ra $CellContext`Rb - 
      4 $CellContext`r^2 (3 + Cos[2 $CellContext`\[Alpha]] + 
        2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^(-2) 
      Sin[2 $CellContext`\[Alpha]] 
      Sin[2 $CellContext`\[Beta]], $CellContext`Ra $CellContext`Rr}, \
{$CellContext`Ra $CellContext`Rb - 
      4 $CellContext`r^2 (3 + Cos[2 $CellContext`\[Alpha]] + 
        2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^(-2) 
      Sin[2 $CellContext`\[Alpha]] 
      Sin[2 $CellContext`\[Beta]], $CellContext`Rb^2 + 
      16 $CellContext`r^2 
       Cos[$CellContext`\[Alpha]]^2 (3 + Cos[2 $CellContext`\[Alpha]] + 
         2 Cos[2 $CellContext`\[Beta]] 
          Sin[$CellContext`\[Alpha]]^2)^(-2), $CellContext`Rb \
$CellContext`Rr}, {$CellContext`Ra $CellContext`Rr, $CellContext`Rb \
$CellContext`Rr, $CellContext`Rr^2}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.8417373608948264`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"bcaae343-ee9c-47fe-8fbc-\
d61a1b0ff9e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"iG=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}], 
         SuperscriptBox["r", "2"]], 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
           RowBox[{"Tan", "[", "\[Alpha]", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Tan", "[", "\[Beta]", "]"}]}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}]], 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], "2"], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "Ra", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"]}], "+", 
            RowBox[{"Rb", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox["r", "2"], " ", "Rr", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "16"}], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], ")"}]}]]},
       {
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
           RowBox[{"Tan", "[", "\[Alpha]", "]"}]}], "+", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Tan", "[", "\[Beta]", "]"}]}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}]], 
        FractionBox[
         RowBox[{"1", "+", 
          SuperscriptBox[
           RowBox[{"Sec", "[", "\[Alpha]", "]"}], "2"], "+", 
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}]], 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], "2"], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "Rb", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
            RowBox[{"Ra", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox["r", "2"], " ", "Rr", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "16"}], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], ")"}]}]]},
       {
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], "2"], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "Ra", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"]}], "+", 
            RowBox[{"Rb", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox["r", "2"], " ", "Rr", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "16"}], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], ")"}]}]], 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], "2"], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "Rb", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
            RowBox[{"Ra", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox["r", "2"], " ", "Rr", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "16"}], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], ")"}]}]], 
        FractionBox[
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              SuperscriptBox["Ra", "2"], " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["Ra", "2"], " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", 
                RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"]}], "+", 
             RowBox[{"16", " ", 
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["Ra", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
               "2"]}]}], ")"}]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["Ra", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["Rb", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Cos", "[", 
               RowBox[{"3", " ", "\[Beta]"}], "]"}], "+", 
              RowBox[{
               RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"7", "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"]}]}], ")"}]}]}], 
             ")"}], "2"]}], "+", 
          RowBox[{"2", " ", "Ra", " ", "Rb", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"3", "+", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}], "2"], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}], "+", 
          RowBox[{"8", " ", "Ra", " ", "Rb", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Alpha]", "]"}], "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", 
                RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"3", "+", 
                RowBox[{"Cos", "[", 
                 RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}], " ", 
              RowBox[{"Sin", "[", 
               RowBox[{"4", " ", "\[Beta]"}], "]"}]}]}], ")"}]}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox["r", "2"], " ", 
          SuperscriptBox["Rr", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"16", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "-", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], ")"}]}]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["iG=", 
   MatrixForm[{{$CellContext`r^(-2) (
       Cos[$CellContext`\[Alpha]]^2 Sec[$CellContext`\[Beta]]^2 + 
       Sin[$CellContext`\[Alpha]]^2), 
      Rational[1, 2] $CellContext`r^(-2) (
       Sin[$CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]] 
        Tan[$CellContext`\[Alpha]] + 
       Sin[2 $CellContext`\[Alpha]] Tan[$CellContext`\[Beta]]), 
      Rational[1, 4] $CellContext`r^(-2) $CellContext`Rr^(-1) (3 + 
        Cos[2 $CellContext`\[Alpha]] + 
        2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^2 (
       4 $CellContext`Ra Cos[$CellContext`\[Alpha]]^2 + $CellContext`Rb 
        Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]])/((-16) 
       Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 + 
      Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2)}, {
     Rational[1, 2] $CellContext`r^(-2) (
       Sin[$CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]] 
        Tan[$CellContext`\[Alpha]] + 
       Sin[2 $CellContext`\[Alpha]] Tan[$CellContext`\[Beta]]), 
      Rational[1, 2] $CellContext`r^(-2) (1 + Sec[$CellContext`\[Alpha]]^2 + 
       Cos[2 $CellContext`\[Beta]] Tan[$CellContext`\[Alpha]]^2), 
      Rational[1, 4] $CellContext`r^(-2) $CellContext`Rr^(-1) (3 + 
        Cos[2 $CellContext`\[Alpha]] + 
        2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^2 (
       4 $CellContext`Rb Cos[$CellContext`\[Beta]]^2 + $CellContext`Ra 
        Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]])/((-16) 
       Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 + 
      Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2)}, {
     Rational[1, 4] $CellContext`r^(-2) $CellContext`Rr^(-1) (3 + 
        Cos[2 $CellContext`\[Alpha]] + 
        2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^2 (
       4 $CellContext`Ra Cos[$CellContext`\[Alpha]]^2 + $CellContext`Rb 
        Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]])/((-16) 
       Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 + 
      Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2), 
      Rational[1, 4] $CellContext`r^(-2) $CellContext`Rr^(-1) (3 + 
        Cos[2 $CellContext`\[Alpha]] + 
        2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^2 (
       4 $CellContext`Rb Cos[$CellContext`\[Beta]]^2 + $CellContext`Ra 
        Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]])/((-16) 
       Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 + 
      Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2), 
      Rational[1, 4] $CellContext`r^(-2) $CellContext`Rr^(-2) (
        16 Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 - 
        Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2)^(-1) (
       4 Cos[$CellContext`\[Alpha]]^2 (
         6 $CellContext`Ra^2 Cos[2 $CellContext`\[Alpha]] + $CellContext`Ra^2 
          Cos[2 $CellContext`\[Alpha]]^2 + 
         16 $CellContext`r^2 
          Cos[$CellContext`\[Beta]]^2 + $CellContext`Ra^2 (3 + 
            2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^2) + 
       4 $CellContext`Ra^2 Cos[2 $CellContext`\[Alpha]] 
        Cos[2 $CellContext`\[Beta]] 
        Sin[2 $CellContext`\[Alpha]]^2 + $CellContext`Rb^2 (
          Cos[3 $CellContext`\[Beta]] + 
          Cos[$CellContext`\[Beta]] (7 + 
            4 Cos[2 $CellContext`\[Alpha]] Sin[$CellContext`\[Beta]]^2))^2 + 
       2 $CellContext`Ra $CellContext`Rb (3 + Cos[2 $CellContext`\[Alpha]])^2 
        Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]] - 
       4 $CellContext`r^2 Sin[2 $CellContext`\[Alpha]]^2 
       Sin[2 $CellContext`\[Beta]]^2 + 
       8 $CellContext`Ra $CellContext`Rb Cos[$CellContext`\[Alpha]] 
        Sin[$CellContext`\[Alpha]]^3 (
         2 Cos[2 $CellContext`\[Beta]]^2 Sin[$CellContext`\[Alpha]]^2 
          Sin[2 $CellContext`\[Beta]] + (3 + Cos[2 $CellContext`\[Alpha]]) 
          Sin[4 $CellContext`\[Beta]]))}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.8417373609018254`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"c9a259fb-2425-4125-b0f3-\
103f3c011384"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"sqrtG=\"\>", "\[InvisibleSpace]", 
   RowBox[{"4", " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox["Rr", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"16", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "-", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], "4"]]]}]}],
  SequenceForm[
  "sqrtG=", 
   4 ($CellContext`r^4 $CellContext`Rr^2 (3 + Cos[2 $CellContext`\[Alpha]] + 
       2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^(-4) (
      16 Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 - 
      Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2))^
    Rational[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.841737360927826*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"babaea08-5c4c-40eb-8954-\
80313495c9e9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Christoffel=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "6"}], " ", "Ra"}], "-", 
                 RowBox[{"2", " ", "Ra", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                 RowBox[{"Ra", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                 RowBox[{"2", " ", "Ra", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                 RowBox[{"Ra", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                 "-", 
                 RowBox[{"2", " ", "Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "-", 
                 RowBox[{"2", " ", "Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "-", 
                 RowBox[{"2", " ", "Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                 RowBox[{"Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                 RowBox[{"Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                 RowBox[{"Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                 RowBox[{"Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                 "+", 
                 RowBox[{"Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                 "+", 
                 RowBox[{"Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}]}], 
                ")"}]}], 
              RowBox[{"r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6"}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                ")"}]}]]},
            {
             FractionBox[
              RowBox[{
               RowBox[{"Sec", "[", "\[Beta]", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"3", " ", "\[Beta]"}]}], "]"}]}], "-", 
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "-", 
                 RowBox[{"14", " ", "Rb", " ", 
                  RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "-", 
                 RowBox[{"2", " ", "Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"3", " ", "\[Beta]"}], "]"}]}], "-", 
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", 
                    RowBox[{"3", " ", "\[Beta]"}]}], "]"}]}], "-", 
                 RowBox[{"4", " ", "Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "-", 
                 RowBox[{"4", " ", "Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "-", 
                 RowBox[{"4", " ", "Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"8", " ", "Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", 
                 RowBox[{"8", " ", "Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", 
                 RowBox[{"8", " ", "Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", 
                 RowBox[{"4", " ", "Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"4", " ", "Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"4", " ", "Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], 
                   "]"}]}]}], ")"}]}], 
              RowBox[{"2", " ", "r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6"}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                ")"}]}]]},
            {
             FractionBox["Rr", "r"]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             FractionBox[
              RowBox[{
               RowBox[{"Sec", "[", "\[Beta]", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"3", " ", "\[Beta]"}]}], "]"}]}], "-", 
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "-", 
                 RowBox[{"14", " ", "Rb", " ", 
                  RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "-", 
                 RowBox[{"2", " ", "Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"3", " ", "\[Beta]"}], "]"}]}], "-", 
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"Rb", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", 
                    RowBox[{"3", " ", "\[Beta]"}]}], "]"}]}], "-", 
                 RowBox[{"4", " ", "Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "-", 
                 RowBox[{"4", " ", "Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "-", 
                 RowBox[{"4", " ", "Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"8", " ", "Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", 
                 RowBox[{"8", " ", "Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", 
                 RowBox[{"8", " ", "Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", 
                 RowBox[{"4", " ", "Ra", " ", "\[Alpha]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"4", " ", "Rb", " ", "\[Beta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], "]"}]}],
                  "+", 
                 RowBox[{"4", " ", "Rr", " ", "\[Eta]", " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "+", "\[Beta]"}], 
                   "]"}]}]}], ")"}]}], 
              RowBox[{"2", " ", "r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6"}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                ")"}]}]]},
            {"0"},
            {"0"}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             FractionBox["Rr", "r"]},
            {"0"},
            {"0"}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}]},
       {
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {"0"},
            {
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                RowBox[{"Ra", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"3", " ", "\[Alpha]"}], "]"}], " ", 
                 RowBox[{"Sec", "[", "\[Alpha]", "]"}]}], "+", 
                RowBox[{"Ra", " ", 
                 RowBox[{"(", 
                  RowBox[{"7", "+", 
                   RowBox[{"4", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                "-", 
                RowBox[{"8", " ", "r", " ", 
                 SuperscriptBox[
                  RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], " ", 
                 RowBox[{"Tan", "[", "\[Alpha]", "]"}]}]}], 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "6"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                 ")"}]}]]}]},
            {"0"}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                RowBox[{"Ra", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"3", " ", "\[Alpha]"}], "]"}], " ", 
                 RowBox[{"Sec", "[", "\[Alpha]", "]"}]}], "+", 
                RowBox[{"Ra", " ", 
                 RowBox[{"(", 
                  RowBox[{"7", "+", 
                   RowBox[{"4", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                "-", 
                RowBox[{"8", " ", "r", " ", 
                 SuperscriptBox[
                  RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], " ", 
                 RowBox[{"Tan", "[", "\[Alpha]", "]"}]}]}], 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "6"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                 ")"}]}]]}]},
            {
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "Rb"}], "+", 
                  RowBox[{"2", " ", "Rb", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "-", 
                  RowBox[{"Rb", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                  RowBox[{"2", " ", "Rb", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "-", 
                  RowBox[{"Rb", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                  "+", 
                  RowBox[{"Ra", " ", "\[Alpha]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                  RowBox[{"Rb", " ", "\[Beta]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                  RowBox[{"Rr", " ", "\[Eta]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                  RowBox[{"2", " ", "Ra", " ", "\[Alpha]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                  RowBox[{"2", " ", "Rb", " ", "\[Beta]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                  RowBox[{"2", " ", "Rr", " ", "\[Eta]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "-", 
                  RowBox[{"Ra", " ", "\[Alpha]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                  "-", 
                  RowBox[{"Rb", " ", "\[Beta]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                  "-", 
                  RowBox[{"Rr", " ", "\[Eta]", " ", 
                   RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}]}], 
                 ")"}]}], 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "6"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                  RowBox[{"Cos", "[", 
                   RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                 ")"}]}]]}]},
            {
             FractionBox["Rr", "r"]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {"0"},
            {
             FractionBox["Rr", "r"]},
            {"0"}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}]},
       {
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                RowBox[{"82", " ", 
                 SuperscriptBox["Ra", "2"]}], "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 SuperscriptBox["\[Alpha]", "2"]}], "+", 
                RowBox[{
                "64", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", "\[Beta]"}],
                 "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 SuperscriptBox["\[Beta]", "2"]}], "+", 
                RowBox[{
                "64", " ", "Ra", " ", "Rr", " ", "\[Alpha]", " ", "\[Eta]"}], 
                "+", 
                RowBox[{
                "64", " ", "Rb", " ", "Rr", " ", "\[Beta]", " ", "\[Eta]"}], 
                "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Rr", "2"], " ", 
                 SuperscriptBox["\[Eta]", "2"]}], "+", 
                RowBox[{"40", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"4", " ", "\[Alpha]"}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"16", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"40", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 SuperscriptBox["\[Alpha]", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{
                "64", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", "\[Beta]", 
                 " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 SuperscriptBox["\[Beta]", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{
                "64", " ", "Ra", " ", "Rr", " ", "\[Alpha]", " ", "\[Eta]", 
                 " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{
                "64", " ", "Rb", " ", "Rr", " ", "\[Beta]", " ", "\[Eta]", 
                 " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Rr", "2"], " ", 
                 SuperscriptBox["\[Eta]", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"4", " ", "\[Beta]"}], "]"}]}], "-", 
                RowBox[{"16", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"20", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                RowBox[{"20", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                RowBox[{"20", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", "\[Alpha]"}], "]"}]}], "+", 
                RowBox[{"6", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", "\[Alpha]"}], "]"}]}], "+", 
                RowBox[{"6", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", "\[Alpha]"}], "]"}]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"2", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"2", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"8", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"8", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"8", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"8", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"8", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"8", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{"Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{"Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["Ra", "2"], " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"2", " ", "Ra", " ", "Rb", " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"2", " ", "Ra", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}]}], 
               RowBox[{"r", " ", "Rr", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "6"}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                  ")"}], "2"]}]]}]},
            {
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Ra", " ", 
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                   "-", 
                   RowBox[{"r", " ", 
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                   "+", 
                   RowBox[{"8", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", "Rb", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
                   RowBox[{"Ra", " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", 
                 RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Rb", " ", 
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                   "+", 
                   RowBox[{"8", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "-", 
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                    " ", 
                    RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", "Ra", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"]}], "+", 
                   RowBox[{"Rb", " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"6", " ", 
                    SuperscriptBox["Ra", "2"], " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                    RowBox[{
                    SuperscriptBox["Ra", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"]}], "+", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox["Ra", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                    "2"]}]}], ")"}]}], "+", 
                   RowBox[{"4", " ", 
                    SuperscriptBox["Ra", "2"], " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"]}], "+", 
                   RowBox[{
                    SuperscriptBox["Rb", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Cos", "[", 
                    RowBox[{"3", " ", "\[Beta]"}], "]"}], "+", 
                    RowBox[{
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"7", "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"]}]}], ")"}]}]}],
                     ")"}], "2"]}], "+", 
                   RowBox[{"2", " ", "Ra", " ", "Rb", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}], "2"], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "-", 
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}], "+", 
                   RowBox[{"8", " ", "Ra", " ", "Rb", " ", 
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"4", " ", "\[Beta]"}], "]"}]}]}], ")"}]}]}], 
                  ")"}]}]}], 
               RowBox[{"r", " ", "Rr", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                 "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"16", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "-", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], 
                 ")"}]}]]}]},
            {
             RowBox[{"-", 
              FractionBox["Ra", "r"]}]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Ra", " ", 
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                   "-", 
                   RowBox[{"r", " ", 
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                   "+", 
                   RowBox[{"8", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", "Rb", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
                   RowBox[{"Ra", " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", 
                 RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Rb", " ", 
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}], 
                   "+", 
                   RowBox[{"8", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "-", 
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                    " ", 
                    RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", "Ra", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"]}], "+", 
                   RowBox[{"Rb", " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"6", " ", 
                    SuperscriptBox["Ra", "2"], " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                    RowBox[{
                    SuperscriptBox["Ra", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"]}], "+", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox["Ra", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                    "2"]}]}], ")"}]}], "+", 
                   RowBox[{"4", " ", 
                    SuperscriptBox["Ra", "2"], " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"]}], "+", 
                   RowBox[{
                    SuperscriptBox["Rb", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Cos", "[", 
                    RowBox[{"3", " ", "\[Beta]"}], "]"}], "+", 
                    RowBox[{
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"7", "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"]}]}], ")"}]}]}],
                     ")"}], "2"]}], "+", 
                   RowBox[{"2", " ", "Ra", " ", "Rb", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}], "2"], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "-", 
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}], "+", 
                   RowBox[{"8", " ", "Ra", " ", "Rb", " ", 
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], ")"}], " ", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"4", " ", "\[Beta]"}], "]"}]}]}], ")"}]}]}], 
                  ")"}]}]}], 
               RowBox[{"r", " ", "Rr", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], 
                 "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"16", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "-", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], 
                 ")"}]}]]}]},
            {
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                RowBox[{"82", " ", 
                 SuperscriptBox["Rb", "2"]}], "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Ra", "2"], " ", 
                 SuperscriptBox["\[Alpha]", "2"]}], "+", 
                RowBox[{
                "64", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", "\[Beta]"}],
                 "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 SuperscriptBox["\[Beta]", "2"]}], "+", 
                RowBox[{
                "64", " ", "Ra", " ", "Rr", " ", "\[Alpha]", " ", "\[Eta]"}], 
                "+", 
                RowBox[{
                "64", " ", "Rb", " ", "Rr", " ", "\[Beta]", " ", "\[Eta]"}], 
                "+", 
                RowBox[{"32", " ", 
                 SuperscriptBox["Rr", "2"], " ", 
                 SuperscriptBox["\[Eta]", "2"]}], "+", 
                RowBox[{"8", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["Rb", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"5", "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["\[Beta]", "2"]}]}], ")"}]}], "+", 
                   RowBox[{"8", " ", "Rb", " ", "\[Beta]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
                    RowBox[{"Rr", " ", "\[Eta]"}]}], ")"}]}], "+", 
                   RowBox[{"4", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Ra", " ", "\[Alpha]"}], "+", 
                    RowBox[{"Rr", " ", "\[Eta]"}]}], ")"}], "2"]}]}], ")"}], 
                 " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"4", " ", "\[Alpha]"}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"16", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"40", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"4", " ", "\[Beta]"}], "]"}]}], "-", 
                RowBox[{"16", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Rb", "2"], " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"4", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"4", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"8", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"8", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"8", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"2", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"2", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "-", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "+", 
                RowBox[{"20", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"20", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"20", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"6", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", "\[Beta]"}], "]"}]}], "+", 
                RowBox[{"6", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", "\[Beta]"}], "]"}]}], "-", 
                RowBox[{"8", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"8", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"8", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{"Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "+", 
                RowBox[{"Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                "-", 
                RowBox[{"2", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"2", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"4", " ", "\[Alpha]"}], "+", 
                   RowBox[{"2", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", "Ra", " ", "Rb", " ", "\[Alpha]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["Rb", "2"], " ", "\[Beta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}], "-", 
                RowBox[{"4", " ", "Rb", " ", "Rr", " ", "\[Eta]", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Alpha]"}], "+", 
                   RowBox[{"4", " ", "\[Beta]"}]}], "]"}]}]}], 
               RowBox[{"r", " ", "Rr", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "6"}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{
                    RowBox[{"2", " ", "\[Alpha]"}], "-", 
                    RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], 
                  ")"}], "2"]}]]}]},
            {
             RowBox[{"-", 
              FractionBox["Rb", "r"]}]}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             RowBox[{"-", 
              FractionBox["Ra", "r"]}]},
            {
             RowBox[{"-", 
              FractionBox["Rb", "r"]}]},
            {"0"}
           },
           
           GridBoxAlignment->{
            "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}],
          Column], "\[NoBreak]", ")"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Christoffel=", 
   MatrixForm[{{{
      2 $CellContext`r^(-1) (-6 - 2 Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-1) ((-6) \
$CellContext`Ra - 2 $CellContext`Ra 
        Cos[2 $CellContext`\[Alpha]] + $CellContext`Ra 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        2 $CellContext`Ra 
        Cos[2 $CellContext`\[Beta]] + $CellContext`Ra 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        2 $CellContext`Ra $CellContext`\[Alpha] Sin[2 $CellContext`\[Alpha]] - 
        2 $CellContext`Rb $CellContext`\[Beta] Sin[2 $CellContext`\[Alpha]] - 
        2 $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 $CellContext`\[Alpha]] + $CellContext`Ra $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Alpha] - 
           2 $CellContext`\[Beta]] + $CellContext`Rb $CellContext`\[Beta] 
         Sin[2 $CellContext`\[Alpha] - 
           2 $CellContext`\[Beta]] + $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Alpha] - 
           2 $CellContext`\[Beta]] + $CellContext`Ra $CellContext`\[Alpha] 
         Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Rb $CellContext`\[Beta] 
         Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Rr $CellContext`\[Eta] 
         Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])]), 
       Rational[
        1, 2] $CellContext`r^(-1) (-6 - 2 Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-1) 
       Sec[$CellContext`\[Beta]] ($CellContext`Rb 
         Cos[2 $CellContext`\[Alpha] - 
           3 $CellContext`\[Beta]] - $CellContext`Rb 
        Cos[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] - 
        14 $CellContext`Rb Cos[$CellContext`\[Beta]] - 2 $CellContext`Rb 
        Cos[3 $CellContext`\[Beta]] - $CellContext`Rb 
        Cos[2 $CellContext`\[Alpha] + $CellContext`\[Beta]] + $CellContext`Rb 
         Cos[2 $CellContext`\[Alpha] + 3 $CellContext`\[Beta]] - 
        4 $CellContext`Ra $CellContext`\[Alpha] 
        Sin[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] - 
        4 $CellContext`Rb $CellContext`\[Beta] 
        Sin[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] - 
        4 $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] + 
        8 $CellContext`Ra $CellContext`\[Alpha] Sin[$CellContext`\[Beta]] + 
        8 $CellContext`Rb $CellContext`\[Beta] Sin[$CellContext`\[Beta]] + 
        8 $CellContext`Rr $CellContext`\[Eta] Sin[$CellContext`\[Beta]] + 
        4 $CellContext`Ra $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Alpha] + $CellContext`\[Beta]] + 
        4 $CellContext`Rb $CellContext`\[Beta] 
         Sin[2 $CellContext`\[Alpha] + $CellContext`\[Beta]] + 
        4 $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Alpha] + $CellContext`\[Beta]]), \
$CellContext`r^(-1) $CellContext`Rr}, {
      Rational[1, 2] $CellContext`r^(-1) (-6 - 2 Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-1) 
       Sec[$CellContext`\[Beta]] ($CellContext`Rb 
         Cos[2 $CellContext`\[Alpha] - 
           3 $CellContext`\[Beta]] - $CellContext`Rb 
        Cos[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] - 
        14 $CellContext`Rb Cos[$CellContext`\[Beta]] - 2 $CellContext`Rb 
        Cos[3 $CellContext`\[Beta]] - $CellContext`Rb 
        Cos[2 $CellContext`\[Alpha] + $CellContext`\[Beta]] + $CellContext`Rb 
         Cos[2 $CellContext`\[Alpha] + 3 $CellContext`\[Beta]] - 
        4 $CellContext`Ra $CellContext`\[Alpha] 
        Sin[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] - 
        4 $CellContext`Rb $CellContext`\[Beta] 
        Sin[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] - 
        4 $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 $CellContext`\[Alpha] - $CellContext`\[Beta]] + 
        8 $CellContext`Ra $CellContext`\[Alpha] Sin[$CellContext`\[Beta]] + 
        8 $CellContext`Rb $CellContext`\[Beta] Sin[$CellContext`\[Beta]] + 
        8 $CellContext`Rr $CellContext`\[Eta] Sin[$CellContext`\[Beta]] + 
        4 $CellContext`Ra $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Alpha] + $CellContext`\[Beta]] + 
        4 $CellContext`Rb $CellContext`\[Beta] 
         Sin[2 $CellContext`\[Alpha] + $CellContext`\[Beta]] + 
        4 $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Alpha] + $CellContext`\[Beta]]), 0, 
       0}, {$CellContext`r^(-1) $CellContext`Rr, 0, 0}}, {{
      0, -$CellContext`r^(-1) (-6 - 2 Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-1) \
($CellContext`Ra Cos[3 $CellContext`\[Alpha]] 
         Sec[$CellContext`\[Alpha]] + $CellContext`Ra (7 + 
          4 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) - 
        8 $CellContext`r Cos[$CellContext`\[Beta]]^2 
        Tan[$CellContext`\[Alpha]]), 
       0}, {-$CellContext`r^(-1) (-6 - 2 Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-1) \
($CellContext`Ra Cos[3 $CellContext`\[Alpha]] 
         Sec[$CellContext`\[Alpha]] + $CellContext`Ra (7 + 
          4 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) - 
        8 $CellContext`r Cos[$CellContext`\[Beta]]^2 
        Tan[$CellContext`\[Alpha]]), (-2) $CellContext`r^(-1) (-6 - 2 
         Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-1) (
        6 $CellContext`Rb + 
        2 $CellContext`Rb Cos[2 $CellContext`\[Alpha]] - $CellContext`Rb 
        Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        2 $CellContext`Rb Cos[2 $CellContext`\[Beta]] - $CellContext`Rb 
        Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Ra $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Alpha] - 
           2 $CellContext`\[Beta]] + $CellContext`Rb $CellContext`\[Beta] 
         Sin[2 $CellContext`\[Alpha] - 
           2 $CellContext`\[Beta]] + $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        2 $CellContext`Ra $CellContext`\[Alpha] Sin[2 $CellContext`\[Beta]] + 
        2 $CellContext`Rb $CellContext`\[Beta] Sin[2 $CellContext`\[Beta]] + 
        2 $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Beta]] - $CellContext`Ra $CellContext`\[Alpha] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - \
$CellContext`Rb $CellContext`\[Beta] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - \
$CellContext`Rr $CellContext`\[Eta] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])]), \
$CellContext`r^(-1) $CellContext`Rr}, {
      0, $CellContext`r^(-1) $CellContext`Rr, 
       0}}, {{-$CellContext`r^(-1) $CellContext`Rr^(-1) (-6 - 2 
         Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-2) (
        82 $CellContext`Ra^2 + 32 $CellContext`Ra^2 $CellContext`\[Alpha]^2 + 
        64 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] \
$CellContext`\[Beta] + 32 $CellContext`Rb^2 $CellContext`\[Beta]^2 + 
        64 $CellContext`Ra $CellContext`Rr $CellContext`\[Alpha] \
$CellContext`\[Eta] + 
        64 $CellContext`Rb $CellContext`Rr $CellContext`\[Beta] $CellContext`\
\[Eta] + 32 $CellContext`Rr^2 $CellContext`\[Eta]^2 + 
        40 $CellContext`Ra^2 Cos[2 $CellContext`\[Alpha]] + 
        6 $CellContext`Ra^2 Cos[4 $CellContext`\[Alpha]] - 
        4 $CellContext`Ra^2 
        Cos[2 $CellContext`\[Alpha] - 
          4 $CellContext`\[Beta]] + $CellContext`Ra^2 
         Cos[4 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] - 
        16 $CellContext`Ra^2 
        Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra^2 
        Cos[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        40 $CellContext`Ra^2 Cos[2 $CellContext`\[Beta]] + 
        32 $CellContext`Ra^2 $CellContext`\[Alpha]^2 
         Cos[2 $CellContext`\[Beta]] + 
        64 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] \
$CellContext`\[Beta] Cos[2 $CellContext`\[Beta]] + 
        32 $CellContext`Rb^2 $CellContext`\[Beta]^2 
         Cos[2 $CellContext`\[Beta]] + 
        64 $CellContext`Ra $CellContext`Rr $CellContext`\[Alpha] \
$CellContext`\[Eta] Cos[2 $CellContext`\[Beta]] + 
        64 $CellContext`Rb $CellContext`Rr $CellContext`\[Beta] $CellContext`\
\[Eta] Cos[2 $CellContext`\[Beta]] + 
        32 $CellContext`Rr^2 $CellContext`\[Eta]^2 
         Cos[2 $CellContext`\[Beta]] + 
        6 $CellContext`Ra^2 Cos[4 $CellContext`\[Beta]] - 
        16 $CellContext`Ra^2 
        Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Ra^2 Cos[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        4 $CellContext`Ra^2 
        Cos[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra^2 
        Cos[2 $CellContext`\[Alpha] + 4 $CellContext`\[Beta]] + 
        20 $CellContext`Ra^2 $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Alpha]] + 
        20 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
         Sin[2 $CellContext`\[Alpha]] + 
        20 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Alpha]] + 
        6 $CellContext`Ra^2 $CellContext`\[Alpha] 
         Sin[4 $CellContext`\[Alpha]] + 
        6 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
         Sin[4 $CellContext`\[Alpha]] + 
        6 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
         Sin[4 $CellContext`\[Alpha]] - 
        2 $CellContext`Ra^2 $CellContext`\[Alpha] 
        Sin[2 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] - 
        2 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
        Sin[2 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] - 
        2 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 $CellContext`\[Alpha] - 
          4 $CellContext`\[Beta]] + $CellContext`Ra^2 $CellContext`\[Alpha] 
         Sin[4 $CellContext`\[Alpha] - 
           4 $CellContext`\[Beta]] + $CellContext`Ra $CellContext`Rb \
$CellContext`\[Beta] 
         Sin[4 $CellContext`\[Alpha] - 
           4 $CellContext`\[Beta]] + $CellContext`Ra $CellContext`Rr \
$CellContext`\[Eta] Sin[4 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] - 
        8 $CellContext`Ra^2 $CellContext`\[Alpha] 
        Sin[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        8 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
        Sin[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        8 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra^2 $CellContext`\[Alpha] 
        Sin[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
        Sin[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
        Sin[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        8 $CellContext`Ra^2 $CellContext`\[Alpha] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        8 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        8 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Ra^2 $CellContext`\[Alpha] 
         Sin[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
         Sin[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
         Sin[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        4 $CellContext`Ra^2 $CellContext`\[Alpha] 
        Sin[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
        Sin[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
        Sin[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        2 $CellContext`Ra^2 $CellContext`\[Alpha] 
        Sin[2 $CellContext`\[Alpha] + 4 $CellContext`\[Beta]] - 
        2 $CellContext`Ra $CellContext`Rb $CellContext`\[Beta] 
        Sin[2 $CellContext`\[Alpha] + 4 $CellContext`\[Beta]] - 
        2 $CellContext`Ra $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 $CellContext`\[Alpha] + 
          4 $CellContext`\[Beta]]), -$CellContext`r^(-1) $CellContext`Rr^(-1) \
(3 + Cos[2 $CellContext`\[Alpha]] + 
         2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^(-2) (
         16 Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 - 
         Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2)^(-1) (
        4 Cos[$CellContext`\[Alpha]] (3 + Cos[2 $CellContext`\[Alpha]] + 
          2 Cos[2 $CellContext`\[Beta]] 
           Sin[$CellContext`\[Alpha]]^2) ($CellContext`Ra 
           Cos[$CellContext`\[Alpha]] (3 + Cos[2 $CellContext`\[Alpha]] + 
            2 Cos[2 $CellContext`\[Beta]] 
             Sin[$CellContext`\[Alpha]]^2) - $CellContext`r 
          Sin[$CellContext`\[Alpha]] (3 + Cos[2 $CellContext`\[Alpha]] + 
           2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) + 
          8 $CellContext`r Cos[$CellContext`\[Alpha]]^2 
           Sin[$CellContext`\[Alpha]] Sin[$CellContext`\[Beta]]^2) (
          4 $CellContext`Rb Cos[$CellContext`\[Beta]]^2 + $CellContext`Ra 
           Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]]) + 
        4 Cos[$CellContext`\[Beta]] (3 + Cos[2 $CellContext`\[Alpha]] + 
          2 Cos[2 $CellContext`\[Beta]] 
           Sin[$CellContext`\[Alpha]]^2) ($CellContext`Rb 
           Cos[$CellContext`\[Beta]] (3 + Cos[2 $CellContext`\[Alpha]] + 
            2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) + 
          8 $CellContext`r Cos[$CellContext`\[Beta]]^2 
           Sin[$CellContext`\[Alpha]]^2 
           Sin[$CellContext`\[Beta]] - $CellContext`r (3 + 
           Cos[2 $CellContext`\[Alpha]] + 
           2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) 
          Sin[$CellContext`\[Beta]]) (
          4 $CellContext`Ra Cos[$CellContext`\[Alpha]]^2 + $CellContext`Rb 
           Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]]) - 
        Sin[2 $CellContext`\[Alpha]] 
        Sin[2 $CellContext`\[Beta]] (
         4 Cos[$CellContext`\[Alpha]]^2 (
           6 $CellContext`Ra^2 
            Cos[2 $CellContext`\[Alpha]] + $CellContext`Ra^2 
            Cos[2 $CellContext`\[Alpha]]^2 + 
           16 $CellContext`r^2 
            Cos[$CellContext`\[Beta]]^2 + $CellContext`Ra^2 (3 + 
              2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^2) + 
         4 $CellContext`Ra^2 Cos[2 $CellContext`\[Alpha]] 
          Cos[2 $CellContext`\[Beta]] 
          Sin[2 $CellContext`\[Alpha]]^2 + $CellContext`Rb^2 (
            Cos[3 $CellContext`\[Beta]] + 
            Cos[$CellContext`\[Beta]] (7 + 
              4 Cos[2 $CellContext`\[Alpha]] Sin[$CellContext`\[Beta]]^2))^2 + 
         2 $CellContext`Ra $CellContext`Rb (3 + 
            Cos[2 $CellContext`\[Alpha]])^2 Sin[2 $CellContext`\[Alpha]] 
          Sin[2 $CellContext`\[Beta]] - 4 $CellContext`r^2 
         Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2 + 
         8 $CellContext`Ra $CellContext`Rb Cos[$CellContext`\[Alpha]] 
          Sin[$CellContext`\[Alpha]]^3 (
           2 Cos[2 $CellContext`\[Beta]]^2 Sin[$CellContext`\[Alpha]]^2 
            Sin[2 $CellContext`\[Beta]] + (3 + Cos[2 $CellContext`\[Alpha]]) 
            Sin[4 $CellContext`\[Beta]]))), -$CellContext`r^(-1) \
$CellContext`Ra}, {-$CellContext`r^(-1) $CellContext`Rr^(-1) (3 + 
         Cos[2 $CellContext`\[Alpha]] + 
         2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^(-2) (
         16 Cos[$CellContext`\[Alpha]]^2 Cos[$CellContext`\[Beta]]^2 - 
         Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2)^(-1) (
        4 Cos[$CellContext`\[Alpha]] (3 + Cos[2 $CellContext`\[Alpha]] + 
          2 Cos[2 $CellContext`\[Beta]] 
           Sin[$CellContext`\[Alpha]]^2) ($CellContext`Ra 
           Cos[$CellContext`\[Alpha]] (3 + Cos[2 $CellContext`\[Alpha]] + 
            2 Cos[2 $CellContext`\[Beta]] 
             Sin[$CellContext`\[Alpha]]^2) - $CellContext`r 
          Sin[$CellContext`\[Alpha]] (3 + Cos[2 $CellContext`\[Alpha]] + 
           2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) + 
          8 $CellContext`r Cos[$CellContext`\[Alpha]]^2 
           Sin[$CellContext`\[Alpha]] Sin[$CellContext`\[Beta]]^2) (
          4 $CellContext`Rb Cos[$CellContext`\[Beta]]^2 + $CellContext`Ra 
           Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]]) + 
        4 Cos[$CellContext`\[Beta]] (3 + Cos[2 $CellContext`\[Alpha]] + 
          2 Cos[2 $CellContext`\[Beta]] 
           Sin[$CellContext`\[Alpha]]^2) ($CellContext`Rb 
           Cos[$CellContext`\[Beta]] (3 + Cos[2 $CellContext`\[Alpha]] + 
            2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) + 
          8 $CellContext`r Cos[$CellContext`\[Beta]]^2 
           Sin[$CellContext`\[Alpha]]^2 
           Sin[$CellContext`\[Beta]] - $CellContext`r (3 + 
           Cos[2 $CellContext`\[Alpha]] + 
           2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2) 
          Sin[$CellContext`\[Beta]]) (
          4 $CellContext`Ra Cos[$CellContext`\[Alpha]]^2 + $CellContext`Rb 
           Sin[2 $CellContext`\[Alpha]] Sin[2 $CellContext`\[Beta]]) - 
        Sin[2 $CellContext`\[Alpha]] 
        Sin[2 $CellContext`\[Beta]] (
         4 Cos[$CellContext`\[Alpha]]^2 (
           6 $CellContext`Ra^2 
            Cos[2 $CellContext`\[Alpha]] + $CellContext`Ra^2 
            Cos[2 $CellContext`\[Alpha]]^2 + 
           16 $CellContext`r^2 
            Cos[$CellContext`\[Beta]]^2 + $CellContext`Ra^2 (3 + 
              2 Cos[2 $CellContext`\[Beta]] Sin[$CellContext`\[Alpha]]^2)^2) + 
         4 $CellContext`Ra^2 Cos[2 $CellContext`\[Alpha]] 
          Cos[2 $CellContext`\[Beta]] 
          Sin[2 $CellContext`\[Alpha]]^2 + $CellContext`Rb^2 (
            Cos[3 $CellContext`\[Beta]] + 
            Cos[$CellContext`\[Beta]] (7 + 
              4 Cos[2 $CellContext`\[Alpha]] Sin[$CellContext`\[Beta]]^2))^2 + 
         2 $CellContext`Ra $CellContext`Rb (3 + 
            Cos[2 $CellContext`\[Alpha]])^2 Sin[2 $CellContext`\[Alpha]] 
          Sin[2 $CellContext`\[Beta]] - 4 $CellContext`r^2 
         Sin[2 $CellContext`\[Alpha]]^2 Sin[2 $CellContext`\[Beta]]^2 + 
         8 $CellContext`Ra $CellContext`Rb Cos[$CellContext`\[Alpha]] 
          Sin[$CellContext`\[Alpha]]^3 (
           2 Cos[2 $CellContext`\[Beta]]^2 Sin[$CellContext`\[Alpha]]^2 
            Sin[2 $CellContext`\[Beta]] + (3 + Cos[2 $CellContext`\[Alpha]]) 
            Sin[4 $CellContext`\[Beta]]))), -$CellContext`r^(-1) \
$CellContext`Rr^(-1) (-6 - 2 Cos[2 $CellContext`\[Alpha]] + 
         Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 2 
         Cos[2 $CellContext`\[Beta]] + 
         Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])])^(-2) (
        82 $CellContext`Rb^2 + 32 $CellContext`Ra^2 $CellContext`\[Alpha]^2 + 
        64 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] \
$CellContext`\[Beta] + 32 $CellContext`Rb^2 $CellContext`\[Beta]^2 + 
        64 $CellContext`Ra $CellContext`Rr $CellContext`\[Alpha] \
$CellContext`\[Eta] + 
        64 $CellContext`Rb $CellContext`Rr $CellContext`\[Beta] $CellContext`\
\[Eta] + 32 $CellContext`Rr^2 $CellContext`\[Eta]^2 + 
        8 ($CellContext`Rb^2 (5 + 4 $CellContext`\[Beta]^2) + 
          8 $CellContext`Rb $CellContext`\[Beta] ($CellContext`Ra \
$CellContext`\[Alpha] + $CellContext`Rr $CellContext`\[Eta]) + 
          4 ($CellContext`Ra $CellContext`\[Alpha] + $CellContext`Rr \
$CellContext`\[Eta])^2) Cos[2 $CellContext`\[Alpha]] + 
        6 $CellContext`Rb^2 Cos[4 $CellContext`\[Alpha]] - 
        4 $CellContext`Rb^2 
        Cos[2 $CellContext`\[Alpha] - 
          4 $CellContext`\[Beta]] + $CellContext`Rb^2 
         Cos[4 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] - 
        16 $CellContext`Rb^2 
        Cos[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] - 
        4 $CellContext`Rb^2 
        Cos[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        40 $CellContext`Rb^2 Cos[2 $CellContext`\[Beta]] + 
        6 $CellContext`Rb^2 Cos[4 $CellContext`\[Beta]] - 
        16 $CellContext`Rb^2 
        Cos[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Rb^2 Cos[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        4 $CellContext`Rb^2 
        Cos[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        4 $CellContext`Rb^2 
        Cos[2 $CellContext`\[Alpha] + 4 $CellContext`\[Beta]] + 
        4 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] + 
        4 $CellContext`Rb^2 $CellContext`\[Beta] 
         Sin[2 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] + 
        4 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Alpha] - 
           4 $CellContext`\[Beta]] - $CellContext`Ra $CellContext`Rb \
$CellContext`\[Alpha] 
        Sin[4 $CellContext`\[Alpha] - 
          4 $CellContext`\[Beta]] - $CellContext`Rb^2 $CellContext`\[Beta] 
        Sin[4 $CellContext`\[Alpha] - 
          4 $CellContext`\[Beta]] - $CellContext`Rb $CellContext`Rr \
$CellContext`\[Eta] Sin[4 $CellContext`\[Alpha] - 4 $CellContext`\[Beta]] + 
        8 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        8 $CellContext`Rb^2 $CellContext`\[Beta] 
         Sin[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        8 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        2 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
         Sin[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        2 $CellContext`Rb^2 $CellContext`\[Beta] 
         Sin[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        2 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
         Sin[4 $CellContext`\[Alpha] - 2 $CellContext`\[Beta]] + 
        20 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
         Sin[2 $CellContext`\[Beta]] + 
        20 $CellContext`Rb^2 $CellContext`\[Beta] Sin[2 $CellContext`\[Beta]] + 
        20 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
         Sin[2 $CellContext`\[Beta]] + 
        6 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
         Sin[4 $CellContext`\[Beta]] + 
        6 $CellContext`Rb^2 $CellContext`\[Beta] Sin[4 $CellContext`\[Beta]] + 
        6 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
         Sin[4 $CellContext`\[Beta]] - 
        8 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        8 $CellContext`Rb^2 $CellContext`\[Beta] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        8 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
         Sin[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Rb^2 $CellContext`\[Beta] 
         Sin[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] + \
$CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
         Sin[4 ($CellContext`\[Alpha] + $CellContext`\[Beta])] - 
        2 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
        Sin[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        2 $CellContext`Rb^2 $CellContext`\[Beta] 
        Sin[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        2 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
        Sin[4 $CellContext`\[Alpha] + 2 $CellContext`\[Beta]] - 
        4 $CellContext`Ra $CellContext`Rb $CellContext`\[Alpha] 
        Sin[2 $CellContext`\[Alpha] + 4 $CellContext`\[Beta]] - 
        4 $CellContext`Rb^2 $CellContext`\[Beta] 
        Sin[2 $CellContext`\[Alpha] + 4 $CellContext`\[Beta]] - 
        4 $CellContext`Rb $CellContext`Rr $CellContext`\[Eta] 
        Sin[2 $CellContext`\[Alpha] + 
          4 $CellContext`\[Beta]]), -$CellContext`r^(-1) $CellContext`Rb}, \
{-$CellContext`r^(-1) $CellContext`Ra, -$CellContext`r^(-1) $CellContext`Rb, 
       0}}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.8417373787159333`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"f2639dfe-a44a-4978-9e49-\
31755402cc57"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Omega]", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]]}], 
     RowBox[{"2", " ", "r"}]]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Omega]", " ", 
      RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]]}], "r"]}], ",", 
   FractionBox[
    RowBox[{"\[Omega]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         RowBox[{"Ra", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
         RowBox[{"Ra", " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"], " ", 
          RowBox[{"Tan", "[", "\[Alpha]", "]"}]}], "+", 
         RowBox[{"Rb", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
             RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", 
             SuperscriptBox[
              RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], "+", 
            RowBox[{"Tan", "[", "\[Beta]", "]"}]}], ")"}]}]}], "r"]}], 
      ")"}]}], 
    RowBox[{"Rr", " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]]}]]}], "}"}]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.8417373890996127`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"31f5fc45-825b-43d3-ae8c-\
93df4a79263b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Omega]", "4"], " ", 
     RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
     RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}]}], 
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Omega]", "4"], " ", 
     RowBox[{"Cot", "[", "\[Beta]", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}]}], 
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Omega]", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Rb", " ", 
            RowBox[{"Cot", "[", "\[Beta]", "]"}]}], "+", 
           RowBox[{"Ra", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}]}], 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]]}], 
      ")"}]}], 
    RowBox[{"Rr", " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}]]}]]}], 
  "}"}]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.841737395662625*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"b71f4fb9-e581-43b2-9876-\
6d7696d021db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", 
      SqrtBox["2"], " ", 
      SuperscriptBox["\[Omega]", "4"], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "4"]}], " ", 
        SuperscriptBox["Rr", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}]], " ", 
      RowBox[{"Cot", "[", "\[Beta]", "]"}], " ", 
      RowBox[{"Csc", "[", "\[Beta]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Alpha]"}], "-", 
          RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"Cot", "[", "\[Beta]", "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", 
      SqrtBox["2"], " ", 
      SuperscriptBox["\[Omega]", "4"], " ", 
      RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "4"]}], " ", 
        SuperscriptBox["Rr", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Beta]"}], "]"}]}]}], ")"}]}]], " ", 
      RowBox[{"Cot", "[", "\[Beta]", "]"}], " ", 
      RowBox[{"Sec", "[", "\[Alpha]", "]"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Alpha]"}], "]"}]}], "+", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Alpha]"}], "-", 
          RowBox[{"2", " ", "\[Beta]"}]}], "]"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Beta]"}], "]"}]}], "+", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Alpha]", "+", "\[Beta]"}], ")"}]}], "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"Cot", "[", "\[Beta]", "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]]}], ",", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["\[Omega]", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Rb", " ", 
            RowBox[{"Cot", "[", "\[Beta]", "]"}]}], "+", 
           RowBox[{"Ra", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}], ")"}]}], 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sec", "[", "\[Beta]", "]"}], "2"], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Csc", "[", "\[Beta]", "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}]}]]}], 
      ")"}], " ", 
     SqrtBox[
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox["Rr", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"16", " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Alpha]"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "\[Beta]"}], "]"}], "2"]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Alpha]"}], "]"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}]}], ")"}], "4"], 
        " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"Tan", "[", "\[Alpha]", "]"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"Tan", "[", "\[Beta]", "]"}], "2"]}]]}], ")"}]}]]]}], 
    "Rr"]}], "}"}]], "Print",
 CellChangeTimes->{
  3.8404269949093547`*^9, 3.8404271072637057`*^9, 3.8404278929133615`*^9, 
   3.840433094620857*^9, 3.8404441767394457`*^9, 3.8404442527754655`*^9, 
   3.8404446032175846`*^9, 3.8404449611405525`*^9, 3.8404463741090784`*^9, {
   3.8404464147872343`*^9, 3.8404464339056644`*^9}, 3.8404464889966865`*^9, 
   3.8404468332246065`*^9, {3.8404468944241557`*^9, 3.840446908354925*^9}, 
   3.8404469824393697`*^9, {3.8404471931731405`*^9, 3.840447221796571*^9}, 
   3.8404474084146395`*^9, 3.8404474499889116`*^9, 3.840447520485727*^9, 
   3.84044806448495*^9, 3.840448119084587*^9, 3.84044818266436*^9, 
   3.840448298736077*^9, 3.8404483341574163`*^9, 3.840448452599166*^9, 
   3.840448715968889*^9, 3.840449994875971*^9, 3.8404500394657354`*^9, 
   3.840450415282425*^9, 3.8404504612423983`*^9, 3.8404539875475426`*^9, 
   3.8404552092487736`*^9, 3.840455250312385*^9, 3.840456065752892*^9, {
   3.840456454420147*^9, 3.8404564722460785`*^9}, 3.84045657187322*^9, 
   3.8404573468765087`*^9, 3.840460086689195*^9, 3.840460192859702*^9, 
   3.8404602564595413`*^9, 3.8404605399153357`*^9, 3.840461050160412*^9, 
   3.840463576086424*^9, 3.8404637394869843`*^9, 3.840463809758543*^9, 
   3.8404884839049673`*^9, 3.840490469894641*^9, 3.8404916936170053`*^9, 
   3.840491724635008*^9, {3.8404920503345785`*^9, 3.840492065769578*^9}, 
   3.840505188599287*^9, 3.8405055691668053`*^9, 3.8406798475915527`*^9, 
   3.8407740944841847`*^9, 3.84077413112221*^9, 3.8407742565065403`*^9, 
   3.8409693355588446`*^9, 3.8409694832959957`*^9, 3.8417374035525403`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"8594c59d-3f16-48f6-b533-\
1491cb32637f"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{2560, 1357},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.3 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 34099, 741, 2436, "Input",ExpressionUUID->"1874d45f-36c8-481d-a96c-727d8c067141"],
Cell[34682, 765, 453, 11, 30, "Message",ExpressionUUID->"72af4fbf-73f6-45e7-898c-e0a3bcd1298b"],
Cell[CellGroupData[{
Cell[35160, 780, 6544, 147, 143, "Print",ExpressionUUID->"400b1bcd-df19-42b0-9b30-5acf1ab1eaff"],
Cell[41707, 929, 10597, 244, 210, "Print",ExpressionUUID->"f9c48e85-f24c-4cc4-a514-5ab2c4a264d8"],
Cell[52307, 1175, 6482, 148, 119, "Print",ExpressionUUID->"bcaae343-ee9c-47fe-8fbc-d61a1b0ff9e0"],
Cell[58792, 1325, 18877, 434, 150, "Print",ExpressionUUID->"c9a259fb-2425-4125-b0f3-103f3c011384"],
Cell[77672, 1761, 3160, 65, 74, "Print",ExpressionUUID->"babaea08-5c4c-40eb-8954-80313495c9e9"],
Cell[80835, 1828, 102660, 2129, 351, "Print",ExpressionUUID->"f2639dfe-a44a-4978-9e49-31755402cc57"],
Cell[183498, 3959, 3628, 82, 83, "Print",ExpressionUUID->"31f5fc45-825b-43d3-ae8c-93df4a79263b"],
Cell[187129, 4043, 5125, 129, 106, "Print",ExpressionUUID->"b71f4fb9-e581-43b2-9876-6d7696d021db"],
Cell[192257, 4174, 7439, 192, 110, "Print",ExpressionUUID->"8594c59d-3f16-48f6-b533-1491cb32637f"]
}, Open  ]]
}, Open  ]]
}
]
*)

